Futurshow - Un Taglio Al Passato/Futurshow - Un Taglio Al Passato.iso/pc/common.cst/00031_Script_31

Text File | 1998-03-11 | 4KB | 144 lines

on startMovie
  global lout

  set lout=FALSE
  set the cursor of sprite 85 to [18,19]
  set the cursor of sprite 86 to [18,19]
end

on closeAllWindow
  put count(the windowList) into temp

  repeat with i = 1 to temp
    close getAt(the windowList,1)
  end repeat
end

on openFloatWindow theFile,theName
  cursor 4

  put the rect of the stage into wRect
  put getAt(wRect,1)+40 into dx
  put getAt(wRect,2)+40 into dy
  set the fileName of window theName to theFile
  put the rect of window theName into wRect
  set nRect=rect(0+dx,0+dy,(getAt(wRect,3)-getAt(wRect,1))+dx,(getAt(wRect,4)-getAt(wRect,2))+dy)
  set the rect of window theName to nRect
  set the windowType of window theName to 49
  open window theName

  cursor 0
end

on crunchLink theField
  set mChar=mouseChar()

  if mChar>0 and getCharStyle(mChar,theField)="underline" then
    set selCol=the foreColor of member "red"
    set stdCol=the foreColor of char mChar of member theField

    set sChar=mChar-1
    set eChar=mChar+1
    repeat while(getCharStyle(sChar,theField)="underline" and sChar>0)
      set sChar=sChar-1
    end repeat
    set sChar=sChar+1

    repeat while(getCharStyle(eChar,theField)="underline" and eChar<=length(field theField))
      set eChar=eChar+1
    end repeat
    set eChar=eChar-1

    set the foreColor of Char sChar to eChar of member theField to selCol
    set flag = TRUE
    repeat while stillDown()
      if mouseChar()>=sChar and  mouseChar()<=eChar then
        if not flag then
          set the foreColor of char sChar to eChar of member theField to selCol
          set flag = TRUE
        end if
      else
        if flag then
          set the foreColor of char sChar to eChar of member theField to stdCol
          set flag = FALSE
        end if
      end if
    end repeat
    set the foreColor of char sChar to eChar of member theField to stdCol

    if flag then
      put char sChar to eChar of field theField into temp
      put "http://"&temp into temp
      goToNetPage(temp)
    end if
  end if
end

on getCharStyle xx,theField
  return the fontStyle of char xx of member theField
end

on trackScroll theSprite
  puppetSprite clickOn(),TRUE

  set theMember=the member of sprite theSprite
  set SLine = locVtoLinePos(theMember,the scrollTop of theMember)

  repeat while stillDown()
    put mouseV() into CurrMouse
    put constrainV(clickOn()-1,CurrMouse) into temp
    set the locV of sprite clickOn() to temp

    put the height of sprite (clickOn()-1) into S
    put the locV of sprite clickOn() - the top of sprite (clickOn()-1) into temp
    put ((the lineCount of theMember) - 1) * temp / S +1 into SLine
    set the scrollTop of theMember to linePosTolocV(theMember,SLine)
    updateStage
  end repeat
end


on openL
  global lout

  set sN=80
  if not lout then
    set lout=TRUE
    repeat with i=1 to 13
      puppetSprite sN,TRUE
      puppetSprite sN+1,TRUE
      puppetSprite sN+2,TRUE
      puppetSprite sN+3,TRUE
      puppetSprite sN+4,TRUE
      set the locH of sprite sN to (the locH of sprite sN)-10
      set the locH of sprite (sN+1) to (the locH of sprite (sN+1))-10
      set the locH of sprite (sN+2) to (the locH of sprite (sN+2))-10
      set the locH of sprite (sN+3) to (the locH of sprite (sN+3))-10
      set the locH of sprite (sN+4) to (the locH of sprite (sN+4))-10
      updateStage
    end repeat
  end if
end

on closeL
  global lout

  set sN=80
  if lout then
    set lout=FALSE
    repeat with i=1 to 13
      set the locH of sprite sN to (the locH of sprite sN)+10
      set the locH of sprite (sN+1) to (the locH of sprite (sN+1))+10
      set the locH of sprite (sN+2) to (the locH of sprite (sN+2))+10
      set the locH of sprite (sN+3) to (the locH of sprite (sN+3))+10
      set the locH of sprite (sN+4) to (the locH of sprite (sN+4))+10
      updateStage
      puppetSprite sN,FALSE
      puppetSprite sN+1,FALSE
      puppetSprite sN+2,FALSE
      puppetSprite sN+3,FALSE
      puppetSprite sN+4,FALSE
    end repeat
  end if
end